home *** CD-ROM | disk | FTP | other *** search
/ Summit / Summit Recordable CD-ROM.ISO / screen / 9.spr < prev    next >
Encoding:
Text File  |  1994-08-11  |  9.2 KB  |  247 lines

  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 08/11/94                9.SPR                  20:42:02 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Duncan Halstead                                         
  8. *       *                                                         
  9. *       * Copyright (c) 1994 CD-ROM, Inc.                         
  10. *       * 603 Park Point Dr.                                      
  11. *       * Golden, CO  80401                                       
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. *       *********************************************************
  35. *       *                                                         
  36. *       *               Windows Window definitions                
  37. *       *                                                         
  38. *       *********************************************************
  39. *
  40.  
  41. IF NOT WEXIST("_qsh18da62")
  42.     DEFINE WINDOW _qsh18da62 ;
  43.         AT  0.000, 0.000  ;
  44.         SIZE 29.769,55.400 ;
  45.         TITLE "Flatware" ;
  46.         FONT "MS Sans Serif", 8 ;
  47.         FLOAT ;
  48.         CLOSE ;
  49.         MINIMIZE ;
  50.         SYSTEM
  51.     MOVE WINDOW _qsh18da62 CENTER
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *                 9/Windows Screen Layout                 
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. #REGION 1
  63. IF WVISIBLE("_qsh18da62")
  64.     ACTIVATE WINDOW _qsh18da62 SAME
  65. ELSE
  66.     ACTIVATE WINDOW _qsh18da62 NOSHOW
  67. ENDIF
  68. @ 0.000,0.000 SAY (LOCFILE("bmp\9.bmp","BMP|ICO|PCT|ICN", "Where is 9?" )) BITMAP ;
  69.     SIZE 29.615,55.400 ;
  70.     STYLE "T"
  71. @ 4.538,1.200 GET abc ;
  72.     PICTURE "@*IHN " ;
  73.     SIZE 7.769,24.400,0.800 ;
  74.     DEFAULT 0 ;
  75.     FONT "MS Sans Serif", 8 ;
  76.     VALID _qsh18daww()
  77. @ 12.615,1.800 GET bnn ;
  78.     PICTURE "@*IHN " ;
  79.     SIZE 8.769,21.600,0.800 ;
  80.     DEFAULT 0 ;
  81.     FONT "MS Sans Serif", 8 ;
  82.     VALID _qsh18db34()
  83. @ 21.462,1.000 GET cde ;
  84.     PICTURE "@*IHN " ;
  85.     SIZE 7.692,24.000,0.800 ;
  86.     DEFAULT 0 ;
  87.     FONT "MS Sans Serif", 8 ;
  88.     VALID _qsh18dbem()
  89. @ 2.923,29.000 GET def ;
  90.     PICTURE "@*IHN " ;
  91.     SIZE 7.846,25.000,0.800 ;
  92.     DEFAULT 0 ;
  93.     FONT "MS Sans Serif", 8 ;
  94.     VALID _qsh18dbjx()
  95. @ 12.231,30.600 GET efg ;
  96.     PICTURE "@*IHN " ;
  97.     SIZE 8.308,21.000,0.800 ;
  98.     DEFAULT 0 ;
  99.     FONT "MS Sans Serif", 8 ;
  100.     VALID _qsh18dbp8()
  101. @ 20.923,28.800 GET hij ;
  102.     PICTURE "@*IHN " ;
  103.     SIZE 8.385,24.600,0.800 ;
  104.     DEFAULT 0 ;
  105.     FONT "MS Sans Serif", 8 ;
  106.     VALID _qsh18dbuu()
  107.  
  108. IF NOT WVISIBLE("_qsh18da62")
  109.     ACTIVATE WINDOW _qsh18da62
  110. ENDIF
  111.  
  112. READ CYCLE ;
  113.     DEACTIVATE .T.
  114.  
  115. RELEASE WINDOW _qsh18da62
  116.  
  117. #REGION 0
  118.  
  119. SET READBORDER &rborder
  120.  
  121. IF m.talkstat = "ON"
  122.     SET TALK ON
  123. ENDIF
  124. IF m.compstat = "ON"
  125.     SET COMPATIBLE ON
  126. ENDIF
  127.  
  128.  
  129. *       *********************************************************
  130. *       *                                                         
  131. *       * _QSH18DAWW           abc VALID                          
  132. *       *                                                         
  133. *       * Function Origin:                                        
  134. *       *                                                         
  135. *       * From Platform:       Windows                            
  136. *       * From Screen:         9,     Record Number:    4         
  137. *       * Variable:            abc                                
  138. *       * Called By:           VALID Clause                       
  139. *       * Snippet Number:      1                                  
  140. *       *                                                         
  141. *       *********************************************************
  142. *
  143. FUNCTION _qsh18daww     &&  abc VALID
  144. #REGION 1
  145. USE CLOSEUP
  146. GOTO 51
  147. DO ZOOM.SPR
  148.  
  149. *       *********************************************************
  150. *       *                                                         
  151. *       * _QSH18DB34           bnn VALID                          
  152. *       *                                                         
  153. *       * Function Origin:                                        
  154. *       *                                                         
  155. *       * From Platform:       Windows                            
  156. *       * From Screen:         9,     Record Number:    5         
  157. *       * Variable:            bnn                                
  158. *       * Called By:           VALID Clause                       
  159. *       * Snippet Number:      2                                  
  160. *       *                                                         
  161. *       *********************************************************
  162. *
  163. FUNCTION _qsh18db34     &&  bnn VALID
  164. #REGION 1
  165. USE CLOSEUP
  166. GO 52
  167. DO ZOOM.SPR
  168.  
  169. *       *********************************************************
  170. *       *                                                         
  171. *       * _QSH18DBEM           cde VALID                          
  172. *       *                                                         
  173. *       * Function Origin:                                        
  174. *       *                                                         
  175. *       * From Platform:       Windows                            
  176. *       * From Screen:         9,     Record Number:    6         
  177. *       * Variable:            cde                                
  178. *       * Called By:           VALID Clause                       
  179. *       * Snippet Number:      3                                  
  180. *       *                                                         
  181. *       *********************************************************
  182. *
  183. FUNCTION _qsh18dbem     &&  cde VALID
  184. #REGION 1
  185. USE CLOSEUP
  186. GO 53
  187. DO ZOOM.SPR
  188.  
  189. *       *********************************************************
  190. *       *                                                         
  191. *       * _QSH18DBJX           def VALID                          
  192. *       *                                                         
  193. *       * Function Origin:                                        
  194. *       *                                                         
  195. *       * From Platform:       Windows                            
  196. *       * From Screen:         9,     Record Number:    7         
  197. *       * Variable:            def                                
  198. *       * Called By:           VALID Clause                       
  199. *       * Snippet Number:      4                                  
  200. *       *                                                         
  201. *       *********************************************************
  202. *
  203. FUNCTION _qsh18dbjx     &&  def VALID
  204. #REGION 1
  205. USE CLOSEUP
  206. GO 54
  207. DO ZOOM.SPR
  208.  
  209. *       *********************************************************
  210. *       *                                                         
  211. *       * _QSH18DBP8           efg VALID                          
  212. *       *                                                         
  213. *       * Function Origin:                                        
  214. *       *                                                         
  215. *       * From Platform:       Windows                            
  216. *       * From Screen:         9,     Record Number:    8         
  217. *       * Variable:            efg                                
  218. *       * Called By:           VALID Clause                       
  219. *       * Snippet Number:      5                                  
  220. *       *                                                         
  221. *       *********************************************************
  222. *
  223. FUNCTION _qsh18dbp8     &&  efg VALID
  224. #REGION 1
  225. USE CLOSEUP
  226. GO 55
  227. DO ZOOM.SPR
  228.  
  229. *       *********************************************************
  230. *       *                                                         
  231. *       * _QSH18DBUU           hij VALID                          
  232. *       *                                                         
  233. *       * Function Origin:                                        
  234. *       *                                                         
  235. *       * From Platform:       Windows                            
  236. *       * From Screen:         9,     Record Number:    9         
  237. *       * Variable:            hij                                
  238. *       * Called By:           VALID Clause                       
  239. *       * Snippet Number:      6                                  
  240. *       *                                                         
  241. *       *********************************************************
  242. *
  243. FUNCTION _qsh18dbuu     &&  hij VALID
  244. #REGION 1
  245. USE CLOSEUP
  246. GO 56
  247. DO ZOOM.SPR